home *** CD-ROM | disk | FTP | other *** search
INI File | 1996-01-18 | 7.5 KB | 553 lines |
- [MainInfo$]
- CCVer=2.0
- Compatible20=1
- UnitName=MonthCmb
- NewClassName=TMonthCombo
- ParentClassName=TComboBox
- DefaultPalette=Standard
- CopyrightLine=A public domain component
- FormMode=0
- FormFile=
-
- [Units$]
- Lines=9
- L1=WinTypes
- L2=WinProcs
- L3=Messages
- L4=SysUtils
- L5=Classes
- L6=Controls
- L7=Forms
- L8=Graphics
- L9=Stdctrls
-
- [ItemList$]
- Create=Method
- Destroy=Method
- OnClick=ExistingEvent
- OnDblClick=ExistingEvent
- OnDragDrop=ExistingEvent
- OnMouseDown=ExistingEvent
- OnMouseMove=ExistingEvent
- OnMouseUp=ExistingEvent
- OnKeyUp=ExistingEvent
- OnKeyDown=ExistingEvent
- OnKeyPress=ExistingEvent
- OnEnter=ExistingEvent
- OnExit=ExistingEvent
- OnChange=ExistingEvent
- LongNames=Variable
- ShortNames=Variable
- Abbreviate=Property
- InitMonth=Property
- Items=Property
- ThisMonth=Method
- Loaded=Method
- Style=Property
- Text=Property
- Sorted=Property
- Width=Property
-
- [Global$]
- Descr=Combobox of months
- DefaultCode=1
-
- [Code$]
- Lines=0
-
- [Help$]
- Lines=0
-
- [Create]
- Descr=
- DefaultCode=2
- Kind=2
- Header=Create(AOwner: TComponent)
- S=0
- Ov=1
- WinMessage=
-
- [CreateCode$]
- Lines=7
- L1=begin
- L2=~~~~~inherited Create(AOwner);
- L3=~~~~~AutoInitialize;
- L4=
- L5=~~~~~{ Code to perform other tasks when the component is created }
- L6=
- L7=end;
-
- [CreateHelp$]
- Lines=0
-
- [Destroy]
- Descr=
- DefaultCode=4
- Kind=3
- Header=Destroy
- S=0
- Ov=1
- WinMessage=
-
- [DestroyCode$]
- Lines=4
- L1=begin
- L2=~~~~~AutoDestroy;
- L3=~~~~~inherited Destroy;
- L4=end;
-
- [DestroyHelp$]
- Lines=0
-
- [OnClick]
- Descr=
- DefaultCode=7
- Ov=0
- P=1
- HandlerDecl=Click
-
- [OnClickCode$]
- Lines=0
-
- [OnClickHelp$]
- Lines=0
-
- [OnDblClick]
- Descr=
- DefaultCode=8
- Ov=0
- P=1
- HandlerDecl=DblClick
-
- [OnDblClickCode$]
- Lines=0
-
- [OnDblClickHelp$]
- Lines=0
-
- [OnDragDrop]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=DragDrop(DragObject: TObject; X, Y: Integer)
-
- [OnDragDropCode$]
- Lines=0
-
- [OnDragDropHelp$]
- Lines=0
-
- [OnMouseDown]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
-
- [OnMouseDownCode$]
- Lines=0
-
- [OnMouseDownHelp$]
- Lines=0
-
- [OnMouseMove]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=MouseMove(Shift: TShiftState; X, Y: Integer)
-
- [OnMouseMoveCode$]
- Lines=0
-
- [OnMouseMoveHelp$]
- Lines=0
-
- [OnMouseUp]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
-
- [OnMouseUpCode$]
- Lines=0
-
- [OnMouseUpHelp$]
- Lines=0
-
- [OnKeyUp]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=KeyUp(var Key: Word; Shift: TShiftState)
-
- [OnKeyUpCode$]
- Lines=0
-
- [OnKeyUpHelp$]
- Lines=0
-
- [OnKeyDown]
- Descr=
- DefaultCode=10
- Ov=0
- P=1
- HandlerDecl=KeyDown(var Key: Word; Shift: TShiftState)
-
- [OnKeyDownCode$]
- Lines=0
-
- [OnKeyDownHelp$]
- Lines=0
-
- [OnKeyPress]
- Descr=
- DefaultCode=9
- Ov=0
- P=1
- HandlerDecl=KeyPress(var Key : Char)
-
- [OnKeyPressCode$]
- Lines=0
-
- [OnKeyPressHelp$]
- Lines=0
-
- [OnEnter]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=DoEnter
-
- [OnEnterCode$]
- Lines=0
-
- [OnEnterHelp$]
- Lines=0
-
- [OnExit]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=DoExit
-
- [OnExitCode$]
- Lines=0
-
- [OnExitHelp$]
- Lines=0
-
- [OnChange]
- Descr=
- DefaultCode=13
- Ov=0
- P=1
- HandlerDecl=Change
-
- [OnChangeCode$]
- Lines=0
-
- [OnChangeHelp$]
- Lines=0
-
- [LongNames]
- Descr=Long forms of month names
- DefaultCode=17
- DataType=TStringList
- Default=
- Quote=0
- Sc=9
- IsObject=1
- IsSubComponent=0
-
- [LongNamesCode$]
- Lines=14
- L1=begin
- L2=Add('January');
- L3=Add('February');
- L4=Add('March');
- L5=Add('April');
- L6=Add('May');
- L7=Add('June');
- L8=Add('July');
- L9=Add('August');
- L10=Add('September');
- L11=Add('October');
- L12=Add('November');
- L13=Add('December');
- L14=end;
-
- [LongNamesHelp$]
- Lines=0
-
- [ShortNames]
- Descr=Abbreviated month names
- DefaultCode=17
- DataType=TStringList
- Default=
- Quote=0
- Sc=9
- IsObject=1
- IsSubComponent=0
-
- [ShortNamesCode$]
- Lines=14
- L1=begin
- L2=Add('Jan');
- L3=Add('Feb');
- L4=Add('Mar');
- L5=Add('April');
- L6=Add('May');
- L7=Add('June');
- L8=Add('July');
- L9=Add('Aug');
- L10=Add('Sept');
- L11=Add('Oct');
- L12=Add('Nov');
- L13=Add('Dec');
- L14=end;
-
- [ShortNamesHelp$]
- Lines=0
-
- [Abbreviate]
- Descr=Use abbreviated month names?
- DefaultCode=6
- IN=0
- RO=0
- PropType=Boolean
- PropDefault=False
- Quote=0
- RM=0
- WM=1
- Hide=0
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [AbbreviateCode$]
- Lines=19
- L1=var
- L2=~~~~~CurrItemIndex : Integer;
- L3=begin
- L4=~~~~~if FAbbreviate <> Value then
- L5=~~~~~~~~begin
- L6=~~~~~~~~CurrItemIndex := ItemIndex;
- L7=~~~~~~~~FAbbreviate := Value;
- L8=~~~~~~~~{ Update Items property of combo box based on
- L9=~~~~~~~~~~whether short names or long names were requested.
- L10=~~~~~~~~~~Reference Items as "inherited" because we have
- L11=~~~~~~~~~~hidden (unpublished) it in this component definition. }
- L12=~~~~~~~~if FAbbreviate then
- L13=~~~~~~~~~~~inherited Items.Assign(ShortNames)
- L14=~~~~~~~~else
- L15=~~~~~~~~~~~inherited Items.Assign(LongNames);
- L16=~~~~~~~~{ Restore setting of ItemIndex property }
- L17=~~~~~~~~ItemIndex := CurrItemIndex
- L18=~~~~~~~~end
- L19=end;
-
- [AbbreviateHelp$]
- Lines=0
-
- [InitMonth]
- Descr=Initialize contents with current month?
- DefaultCode=6
- IN=0
- RO=0
- PropType=Boolean
- PropDefault=True
- Quote=0
- RM=0
- WM=0
- Hide=0
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [InitMonthCode$]
- Lines=0
-
- [InitMonthHelp$]
- Lines=0
-
- [Items]
- Descr=Hide the parent's Items property
- DefaultCode=6
- IN=1
- RO=0
- PropType=TStrings
- PropDefault=
- Quote=0
- RM=0
- WM=0
- Hide=1
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [ItemsCode$]
- Lines=0
-
- [ItemsHelp$]
- Lines=0
-
- [ThisMonth]
- Descr=Current month (0 .. 11)
- DefaultCode=0
- Kind=1
- Header=ThisMonth : Integer
- S=0
- Ov=0
- WinMessage=
-
- [ThisMonthCode$]
- Lines=7
- L1=var
- L2=~~~~~Year, Month, Day, Weekday : Word;
- L3=begin
- L4=~~~~~{ Obtain the date information }
- L5=~~~~~DecodeDate(Now, Year, Month, Day);
- L6=~~~~~Result := Month - 1
- L7=end;
-
- [ThisMonthHelp$]
- Lines=0
-
- [Loaded]
- Descr=
- DefaultCode=20
- Kind=0
- Header=Loaded
- S=0
- Ov=1
- WinMessage=
-
- [LoadedCode$]
- Lines=19
- L1=begin
- L2=~~~~~inherited Loaded;
- L3=
- L4=~~~~~{ The following component setup is in the Loaded method because
- L5=~~~~~~~it depends on the other property values having been set: }
- L6=
- L7=~~~~~{ Set Items property. Reference Items as "inherited" because
- L8=~~~~~~~we have hidden (unpublished) it in this component }
- L9=~~~~~if FAbbreviate then
- L10=~~~~~~~~inherited Items.Assign(ShortNames)
- L11=~~~~~else
- L12=~~~~~~~~inherited Items.Assign(LongNames);
- L13=
- L14=~~~~~{ Set ItemIndex property }
- L15=~~~~~if FInitMonth then
- L16=~~~~~~~~ItemIndex := ThisMonth
- L17=~~~~~else
- L18=~~~~~~~~ItemIndex := -1
- L19=end;
-
- [LoadedHelp$]
- Lines=0
-
- [Style]
- Descr=Hide the parent's Style property
- DefaultCode=6
- IN=1
- RO=0
- PropType=TComboBoxStyle
- PropDefault=csDropDownList
- Quote=0
- RM=0
- WM=0
- Hide=1
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [StyleCode$]
- Lines=0
-
- [StyleHelp$]
- Lines=0
-
- [Text]
- Descr=Hide the parent's Text property
- DefaultCode=6
- IN=1
- RO=0
- PropType=String
- PropDefault=
- Quote=0
- RM=0
- WM=0
- Hide=1
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [TextCode$]
- Lines=0
-
- [TextHelp$]
- Lines=0
-
- [Sorted]
- Descr=Items should always be unsorted
- DefaultCode=6
- IN=1
- RO=0
- PropType=Boolean
- PropDefault=False
- Quote=0
- RM=0
- WM=0
- Hide=1
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [SortedCode$]
- Lines=0
-
- [SortedHelp$]
- Lines=0
-
- [Width]
- Descr=Narrower than initial width for standard combo box
- DefaultCode=6
- IN=1
- RO=0
- PropType=Integer
- PropDefault=100
- Quote=0
- RM=0
- WM=0
- Hide=0
- DefEdit=1
- All=0
- EC=
- EU=
- Link=
-
- [WidthCode$]
- Lines=0
-
- [WidthHelp$]
- Lines=0
-